(info-insert-file-contents): Bind

coding-system-for-write to no-conversion.

diff --git a/lisp/info.el b/lisp/info.el
index 5cd4eda25872fd4ee987b895483ff36e61c54aaa..a52c76273d5eaa14268d2d1697a98474eb24ba53 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -250,6 +250,7 @@ Do the right thing if the file has been compressed or zipped."
     (insert-file-contents fullname visit)
     (if decoder
        (let ((buffer-read-only nil)
+             (coding-system-for-write 'no-conversion)
              (default-directory (or (file-name-directory fullname)
                                     default-directory)))
          (call-process-region (point-min) (point-max) decoder t t)))))